/ Acorn RISC PD-CD 1 / Acorn RISC PD-CD 1.iso / utilities / _dtp / dtp / _impcompr / runimp

< prev

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 04 0d 00 14 18 | f4 20 3e 20 21 49 6d 70 |........|. > !Imp|
|00000010| 43 6f 6d 70 72 2e 52 75 | 6e 49 6d 70 0d 00 1e 04 |Compr.Ru|nImp....|
|00000020| 0d 00 28 32 f4 20 42 75 | 69 6c 64 73 20 61 72 63 |..(2. Bu|ilds arc|
|00000030| 68 69 76 65 20 70 61 74 | 68 6e 61 6d 65 20 61 6e |hive pat|hname an|
|00000040| 64 20 72 75 6e 73 20 66 | 69 6c 65 20 69 6e 73 69 |d runs f|ile insi|
|00000050| 64 65 0d 00 32 29 f4 20 | 56 65 72 73 69 6f 6e 20 |de..2). |Version |
|00000060| 31 b7 30 30 20 a9 20 4a | 6f 6e 61 74 68 61 6e 20 |1.00 . J|onathan |
|00000070| 4d 61 72 74 65 6e 20 31 | 39 39 32 0d 00 3c 04 0d |Marten 1|992..<..|
|00000080| 00 46 4d c8 99 20 22 4f | 53 5f 47 65 74 45 6e 76 |.FM.. "O|S_GetEnv|
|00000090| 22 20 b8 20 63 6d 64 24 | 20 20 20 20 20 20 20 20 |" . cmd$|        |
|000000a0| 20 20 20 20 20 20 20 20 | 20 3a 20 f4 20 67 65 74 |        | : . get|
|000000b0| 20 66 69 6c 65 20 6e 61 | 6d 65 20 66 72 6f 6d 20 | file na|me from |
|000000c0| 63 6f 6d 6d 61 6e 64 20 | 6c 69 6e 65 0d 00 50 21 |command |line..P!|
|000000d0| 66 69 6c 65 24 20 3d 20 | c1 63 6d 64 24 2c a7 63 |file$ = |.cmd$,.c|
|000000e0| 6d 64 24 2c 22 22 22 20 | 22 29 2b 32 29 0d 00 5a |md$,""" |")+2)..Z|
|000000f0| 11 6f 72 69 67 24 20 3d | 20 66 69 6c 65 24 0d 00 |.orig$ =| file$..|
|00000100| 64 04 0d 00 6e 46 49 25 | 20 3d 20 a7 66 69 6c 65 |d...nFI%| = .file|
|00000110| 24 2c 22 3a 3a 22 29 20 | 20 20 20 20 20 20 20 20 |$,"::") |        |
|00000120| 20 20 20 20 20 20 20 20 | 20 3a 20 f4 20 63 6f 6e |        | : . con|
|00000130| 76 65 72 74 20 74 6f 20 | 61 72 63 68 69 76 65 20 |vert to |archive |
|00000140| 70 61 74 68 6e 61 6d 65 | 0d 00 78 0e e7 20 28 49 |pathname|..x.. (I|
|00000150| 25 3e 30 29 20 8c 0d 00 | 82 2c 20 20 66 69 6c 65 |%>0) ...|.,  file|
|00000160| 24 20 3d 20 c0 66 69 6c | 65 24 2c 49 25 2d 31 29 |$ = .fil|e$,I%-1)|
|00000170| 2b 22 23 23 22 2b c1 66 | 69 6c 65 24 2c 49 25 2b |+"##"+.f|ile$,I%+|
|00000180| 32 29 0d 00 8c 05 cd 0d | 00 96 04 0d 00 a0 46 61 |2)......|......Fa|
|00000190| 72 63 24 20 3d 20 66 69 | 6c 65 24 20 20 20 20 20 |rc$ = fi|le$     |
|000001a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000001b0| 20 20 20 20 20 20 20 3a | 20 f4 20 65 78 74 72 61 |       :| . extra|
|000001c0| 63 74 20 6c 61 73 74 20 | 63 6f 6d 70 6f 6e 65 6e |ct last |componen|
|000001d0| 74 0d 00 aa 14 49 25 20 | 3d 20 a7 66 69 6c 65 24 |t....I% |= .file$|
|000001e0| 2c 22 2e 22 29 0d 00 b4 | 0d c8 95 20 28 49 25 3e |,".")...|... (I%>|
|000001f0| 30 29 0d 00 be 18 20 20 | 61 72 63 24 20 3d 20 c1 |0)....  |arc$ = .|
|00000200| 61 72 63 24 2c 49 25 2b | 31 29 0d 00 c8 15 20 20 |arc$,I%+|1)....  |
|00000210| 49 25 20 3d 20 a7 61 72 | 63 24 2c 22 2e 22 29 0d |I% = .ar|c$,".").|
|00000220| 00 d2 05 ce 0d 00 dc 17 | 61 72 63 24 20 3d 20 22 |........|arc$ = "|
|00000230| 21 22 2b c0 61 72 63 24 | 2c 39 29 0d 00 e6 04 0d |!"+.arc$|,9).....|
|00000240| 00 f0 50 de 20 62 75 66 | 20 33 30 20 20 20 20 20 |..P. buf| 30     |
|00000250| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000260| 20 20 20 20 20 20 20 20 | 20 3a 20 f4 20 72 65 61 |        | : . rea|
|00000270| 64 20 66 69 72 73 74 20 | 65 6e 74 72 79 20 69 6e |d first |entry in|
|00000280| 20 72 6f 6f 74 20 64 69 | 72 65 63 74 6f 72 79 0d | root di|rectory.|
|00000290| 00 fa 21 66 69 6c 65 24 | 20 3d 20 22 53 70 61 72 |..!file$| = "Spar|
|000002a0| 6b 46 53 23 22 2b 66 69 | 6c 65 24 2b 22 3a 24 22 |kFS#"+fi|le$+":$"|
|000002b0| 0d 01 04 30 c8 99 20 22 | 4f 53 5f 47 42 50 42 22 |...0.. "|OS_GBPB"|
|000002c0| 2c 39 2c 66 69 6c 65 24 | 2c 62 75 66 2c 32 2c 30 |,9,file$|,buf,2,0|
|000002d0| 2c 33 30 2c 22 2a 22 20 | b8 20 2c 2c 2c 6e 75 6d |,30,"*" |. ,,,num|
|000002e0| 0d 01 0e 45 e7 20 28 6e | 75 6d 3c 3e 31 29 20 8c |...E. (n|um<>1) .|
|000002f0| 20 85 20 30 2c 22 57 72 | 6f 6e 67 20 6e 75 6d 62 | . 0,"Wr|ong numb|
|00000300| 65 72 20 6f 66 20 65 6e | 74 72 69 65 73 20 69 6e |er of en|tries in|
|00000310| 20 61 72 63 68 69 76 65 | 20 66 69 6c 65 3a 20 22 | archive| file: "|
|00000320| 2b c3 6e 75 6d 0d 01 18 | 04 0d 01 22 48 6c 65 61 |+.num...|..."Hlea|
|00000330| 66 24 20 3d 20 22 22 20 | 20 20 20 20 20 20 20 20 |f$ = "" |        |
|00000340| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000350| 20 20 20 20 20 3a 20 f4 | 20 67 65 74 20 6c 65 61 |     : .| get lea|
|00000360| 66 6e 61 6d 65 20 6f 66 | 20 64 6f 63 75 6d 65 6e |fname of| documen|
|00000370| 74 0d 01 2c 2e f5 20 3a | 20 6c 65 61 66 24 20 2b |t..,.. :| leaf$ +|
|00000380| 3d 20 bd 28 3f 62 75 66 | 29 20 3a 20 62 75 66 20 |= .(?buf|) : buf |
|00000390| 2b 3d 20 31 20 3a 20 fd | 20 3f 62 75 66 3d 30 0d |+= 1 : .| ?buf=0.|
|000003a0| 01 36 04 0d 01 40 15 e7 | 20 28 6c 65 61 66 24 3c |.6...@..| (leaf$<|
|000003b0| 3e 61 72 63 24 29 20 8c | 0d 01 4a 45 20 20 66 20 |>arc$) .|..JE  f |
|000003c0| 3d 20 ad 28 6f 72 69 67 | 24 29 20 20 20 20 20 20 |= .(orig|$)      |
|000003d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3a |        |       :|
|000003e0| 20 f4 20 69 66 20 64 6f | 65 73 6e 27 74 20 6d 61 | . if do|esn't ma|
|000003f0| 74 63 68 20 66 69 6c 65 | 6e 61 6d 65 2c 0d 01 54 |tch file|name,..T|
|00000400| 10 20 20 e7 20 28 66 3c | 3e 30 29 20 8c 0d 01 5e |.  . (f<|>0) ...^|
|00000410| 0f 20 20 20 20 cf 23 66 | 20 3d 20 32 0d 01 68 14 |.    .#f| = 2..h.|
|00000420| 20 20 20 20 6c 65 61 66 | 24 20 3d 20 61 72 63 24 |    leaf|$ = arc$|
|00000430| 0d 01 72 44 20 20 20 20 | d5 20 23 66 2c 6c 65 61 |..rD    |. #f,lea|
|00000440| 66 24 3b 20 3a 20 d5 20 | 23 66 2c 30 20 20 20 20 |f$; : . |#f,0    |
|00000450| 20 20 20 20 20 20 3a 20 | f4 20 66 69 78 20 75 70 |      : |. fix up|
|00000460| 20 6e 61 6d 65 20 77 69 | 74 68 69 6e 20 61 72 63 | name wi|thin arc|
|00000470| 68 69 76 65 0d 01 7c 0c | 20 20 20 20 d9 20 23 66 |hive..|.|    . #f|
|00000480| 0d 01 86 07 20 20 cd 0d | 01 90 05 cd 0d 01 9a 04 |....  ..|........|
|00000490| 0d 01 a4 45 de 20 74 61 | 73 6b 20 35 20 3a 20 24 |...E. ta|sk 5 : $|
|000004a0| 74 61 73 6b 20 3d 20 22 | 54 41 53 4b 22 20 20 20 |task = "|TASK"   |
|000004b0| 20 20 20 20 20 20 20 20 | 20 20 3a 20 f4 20 72 75 |        |  : . ru|
|000004c0| 6e 20 66 69 6c 65 20 69 | 6e 73 69 64 65 20 61 72 |n file i|nside ar|
|000004d0| 63 68 69 76 65 0d 01 ae | 32 c8 99 20 22 57 69 6d |chive...|2.. "Wim|
|000004e0| 70 5f 49 6e 69 74 69 61 | 6c 69 73 65 22 2c 32 30 |p_Initia|lise",20|
|000004f0| 30 2c 21 74 61 73 6b 2c | 22 49 6d 70 44 65 63 6f |0,!task,|"ImpDeco|
|00000500| 6d 70 72 65 73 73 22 0d | 01 b8 34 c8 99 20 22 57 |mpress".|..4.. "W|
|00000510| 69 6d 70 5f 53 74 61 72 | 74 54 61 73 6b 22 2c 22 |imp_Star|tTask","|
|00000520| 46 69 6c 65 72 5f 52 75 | 6e 20 22 2b 66 69 6c 65 |Filer_Ru|n "+file|
|00000530| 24 2b 22 2e 22 2b 6c 65 | 61 66 24 0d 01 c2 17 c8 |$+"."+le|af$.....|
|00000540| 99 20 22 57 69 6d 70 5f | 43 6c 6f 73 65 44 6f 77 |. "Wimp_|CloseDow|
|00000550| 6e 22 0d 01 cc 05 e0 0d | ff                      |n"......|.       |
+--------+-------------------------+-------------------------+--------+--------+